# NOT RUN {
design <- cosa.crd2(order = 0, round = FALSE,
constrain = "power", power = .80,
cn1 = c(20, 10), cn2 = c(200, 50),
es = .25, rho2 = .10,
g2 = 3, r22 = .30,
n1 = NULL, n2 = NULL, p = NULL)
args.grid <- expand.grid(
rho2 = seq(.15, .25, .05)
)
vectorize.cosa(design, args.grid = args.grid, ordered = FALSE)
# }
Run the code above in your browser using DataLab